www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_updatefilter.asp
<!-- #include file="config.asp" --> <!-- #include file="style.asp" --> <!-- #include file="admin_verify.asp" --> <% Response.Expires=-1 tfindexp=Request.Form("findexp") if tfindexp<>"" then tfiltermode=0 arr_findrange=split(Request.Form("findrange"),",") for fi=0 to ubound(arr_findrange) if len(arr_findrange(fi))<=5 then if isnumeric(arr_findrange(fi)) then if cint(arr_findrange(fi))<16384 then tfiltermode=tfiltermode+cint(arr_findrange(fi)) end if end if end if next if Request.Form("matchcase")="8192" then tfiltermode=tfiltermode+8192 if Request.Form("filtermethod")="16384" then tfiltermode=tfiltermode+16384 elseif Request.Form("filtermethod")="4096" then tfiltermode=tfiltermode+4096 end if if Request.Form("filtermethod")="0" then treplacestr=Request.Form("replacetxt") else treplacestr="" end if if isnumeric(Request.Form("filterid")) and Request.Form("filterid")<>"" then tfilterid=clng(Request.Form("filterid")) set cn=server.CreateObject("ADODB.Connection") set rs=server.CreateObject("ADODB.Recordset") CreateConn cn,dbtype rs.Open "SELECT regexp,filtermode,replacestr FROM filterconfig WHERE filterid=" &tfilterid,cn,1,3 rs("regexp")=tfindexp rs("filtermode")=tfiltermode rs("replacestr")=treplacestr rs.Update rs.Close cn.Close set rs=nothing set cn=nothing end if end if Response.Redirect "admin_filter.asp" %>